Electronic Clipper 1998 May/Electronic Clipper 1998-05.iso/Idea Source®/light.dir/00003_Script_flashlight thing

Text File | 1998-03-17 | 828b | 31 lines

on exitFrame
  --global Hc
  --global Vc
  --set Hc to the mouseh - 320
  --set Vc to the mousev - 360
  go the frame
  cursor 200
  set the loch of sprite 2 to the mouseh
  set the locv of sprite 2 to the mousev
  --set the width of sprite 2 to (((abs(Vc))+(abs(Hc)))/6)+70
  --set the height of sprite 2 to (((abs(Vc))+(abs(Hc)))/6)+70
  if the mousedown then
    cursor -1
    go the frame +1
  end if
    repeat with n=32 to 35
    if rollover (n) then set the visible of sprite n to false
    if rollover (n) then set the visible of sprite (n+5) to true
    updatestage
  end repeat

  repeat with n=32 to 35
    if not rollover (n) then set the visible of sprite n to true
    if not rollover (n) then set the visible of sprite (n+5) to false
    updatestage
  end repeat
end